if val(inv_nber)<10000
   IF LEN(ALLTRIM(INV_NBER))<>5
      visit1='0'+alltrim(inv_nber)+SUBSTR(DTOS(DATE_VISIT),5,2)+SUBSTR(DTOS(DATE_VISIT),3,2)
   ELSE
      VISIT1='0'+INV_NBER+SUBSTR(DTOS(DATE_VISIT),5,2)+SUBSTR(DTOS(DATE_VISIT),3,2)
   ENDIF
else
   VISIT1=INV_NBER+SUBSTR(DTOS(DATE_VISIT),5,2)+SUBSTR(DTOS(DATE_VISIT),3,2)
endif
